VERSION 5.00
Begin VB.Form frmADGIDG 
   BackColor       =   &H00FFFFFF&
   Caption         =   "Dangerous Goods"
   ClientHeight    =   6540
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6375
   Icon            =   "frmADGIDG.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   6540
   ScaleWidth      =   6375
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cmdCancel 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "&Cancel"
      Height          =   315
      Left            =   3480
      MaskColor       =   &H0080C0FF&
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   6060
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.CommandButton cmdSave 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "&Save/Exit"
      Height          =   315
      Left            =   1680
      MaskColor       =   &H0080C0FF&
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   6060
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Dangerous Goods"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000080FF&
      Height          =   5775
      Left            =   120
      TabIndex        =   4
      Top             =   120
      Width           =   6135
      Begin VB.TextBox Text3 
         BorderStyle     =   0  'None
         Height          =   1275
         Left            =   300
         MultiLine       =   -1  'True
         TabIndex        =   7
         TabStop         =   0   'False
         Text            =   "frmADGIDG.frx":030A
         Top             =   4320
         Width           =   5115
      End
      Begin VB.TextBox Text2 
         BorderStyle     =   0  'None
         Height          =   1695
         Left            =   300
         MultiLine       =   -1  'True
         TabIndex        =   6
         TabStop         =   0   'False
         Text            =   "frmADGIDG.frx":0406
         Top             =   2160
         Width           =   5655
      End
      Begin VB.OptionButton optIDG 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Inaccessible Dangerous Goods"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   300
         TabIndex        =   1
         Top             =   3900
         Width           =   3255
      End
      Begin VB.OptionButton optADG 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Accessible Dangerous Goods"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   315
         Left            =   300
         TabIndex        =   0
         Top             =   1800
         Width           =   3255
      End
      Begin VB.TextBox Text1 
         BorderStyle     =   0  'None
         Height          =   1095
         Left            =   240
         MultiLine       =   -1  'True
         TabIndex        =   5
         TabStop         =   0   'False
         Text            =   "frmADGIDG.frx":0546
         Top             =   360
         Width           =   5715
      End
      Begin VB.Line Line1 
         BorderColor     =   &H000080FF&
         BorderWidth     =   2
         Index           =   2
         X1              =   240
         X2              =   5880
         Y1              =   1560
         Y2              =   1560
      End
   End
End
Attribute VB_Name = "frmADGIDG"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancel_Click()
    Me.Hide
End Sub

Private Sub cmdSave_Click()
    Call AssignFormGlobalVars
    Me.Hide
End Sub
'---------------------------------------------------------------------------------------
' Procedure : AssignFormGlobalVars()
' DateTime  : 4/26/2006
' Purpose   : Assign the form's global vars
'---------------------------------------------------------------------------------------
'
Public Sub AssignFormGlobalVars()
    
    If optADG Then
        g_str1331 = "A"
    ElseIf optIDG Then
        g_str1331 = "I"
    Else
        g_str1331 = ""
    End If

End Sub
Private Sub Form_Load()
    optADG = False
    optIDG = False
End Sub
